perm filename DDCL[NEW,LCS] blob sn#435733 filedate 1979-04-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION NOTDD  --  IF AC0 NEG. IT'S NOT A DATADISC -- FOR 'SEE'
C00003 ENDMK
CāŠ—;
;FUNCTION NOTDD  --  IF AC0 NEG. IT'S NOT A DATADISC -- FOR 'SEE'
NOTDD:	MOVNI	2,1
	GETLIN	2	;0=IT IS A DD
	TLNN	2,20000
	PUSHJ 17,SHOW    ;	SETO	;-1=NOT DD
;;	HRLZI 15,FSTSAV
;;	BLT 15,15		;RETRIEVES ACS 
	JRA 16,1(16)  ;	RETURN;	    END;